#table A2

#directory
#set working directory to the path PvP_Replication
#setwd("~/PvP_Replication")

#libraries
library(tidyverse)
library(xtable)

#read in cnmh data (last updated 9/2023)
cnmh_full <- read.csv("PvP_data/cnmh_full.csv")

#produce the table
cnmh_full %>% 
  filter(year > 2015 & year < 2021 & str_detect(groupname, "DISIDENCIA FARC")) %>%  #filter to actions by FARC dissidents after peace accord
  group_by(`Incident.Type`) %>% 
  count() %>% 
  arrange(desc(n)) %>% 
  xtable() %>% 
  print(include.rownames = FALSE) 
